
libname save "./" ; 

options mprint;
options ls=120 formdlim="-" symbolgen mlogic; * ps=2000;

/****************************************************************** 

this pgm reads transunion data, specifically the ACCEPTS file 

******************************************************************/
%macro tu;
    data save.tu&sufx.;
        label
            
        ZIPCODE = "5 Digit Zip Code"
	STATE = "STATE"
	PermID = "PermId for the consumer"
	TUEDT_2003 = "TUEDT 2003"
	DOB = "dob"
	at01s = "Number of trades"
	at03s = "Number of open trades currently satisfactory"
	at06s = "Number of trades opened in past 6 months"
	at09s = "Number of trades opened in past 24 months"
	trdver3 = "# of open trades verified in 3"
	trdver6 = "# of open trades verified in 6"
	at12s = "Number of open trades verified in past 12 months"
	trdver24 = "# of open trades verified in 24   "
	at20s = "Months since oldest trade opened"
	at21s = "Months since most recent trade opened"
	at24s = "Number of currently open and satisfactory
        trades 6 months or older"
	at25s = "Number of currently open and satisfactory
        trades 12 months or older"
	at27s = "Number of currently open and satisfactory
        trades 24 months or older"
	at28a = "Total credit line of open trades verified
        in past 12 months"
	at29s = "Number of open trades with balance > $0
        verified in past 12 months"
	at33a = "Total balance of open trades verified in
        past 12 months"
	at34a = "Utilization for open trades verified in
        past 12 months"
	at35a = "Average balance of open trades verified
        in past 12 months"
	at36s = "Months since most recent delinquency"
	agcolthb = " aggregate current balance of all collection"
	br03s = "Number of currently satisfactory open
        bank revolving trades"
	br20s = "Months since oldest bank revolving trade opened"
	br28s = "Total credit line of open bank revolving
        trades verified in past 12 months"
	br33s = "Total balance of open bank revolving
        trades verified in past 12 months"
	fr03s = "Number of currently satisfactory open
        finance revolving trades"
	fr33s = "Total balance of open finance revolving
        trades verified in past 12 months"
	fr35s = "Average balance of open finance revolving
        trades verified in past 12 months"
	re03s = "Number of currently satisfactory open
        revolving trades"
	revopn6 = "# of open revolving trades ver in 6 months"
	re09s = "Number of revolving trades opened in past
        24 months"
	re20s = "Months since oldest revolving trade opened"
	re28s = "Total credit line of open revolving trades
        verified in past 12 months"
	re32s = "Maximum balance owed on open revolving
        trades verified in past 12 months"
	re33s = "Total balance of open revolving trades
        verified in past 12 months"
	re34s = "Utilization for open revolving trades
        verified in past 12 months"
	re35s = "Average balance of open revolving trades
        verified in past 12 months"
	bi01s = "Number of bank installment trades"
	bi03s = "Number of currently satisfactory open bank
        installment trades"
	bi06s = "Number of bank installment trades opened in
        past 6 months"
	bi09s = "Number of bank installment trades opened in
        past 24 months"
	bi20s = "Months since oldest bank installment trade opened"
	bi28s = "Total credit line of open bank installment
        trades verified in past 12 months"
	fi01s = "Number of finance installment trades"
	fi03s = "Number of currently satisfactory open
        finance installment trades"
	fi06s = "Number of finance installment trades
        opened in past 6 months"
	fi09s = "Number of finance installment trades
        opened in past 24 months"
	in03s = "Number of currently satisfactory open
        installment trades"
	in06s = "Number of installment trades opened in
        past 6 months"
	in09s = "Number of installment trades opened in
        past 24 months"
	fioact3 = "# of active finance installment ver in 3 mo"
	in12s = "Number of open installment trades verified
        in past 12 months"
	in21s = "Months since most recent installment trade
        opened"
	in28s = "Total credit line of open installment trades
        verified in past 12 months"
	in33s = "Total balance of open installment trades
        verified in past 12 months"
	in34s = "Utilization for open installment trades
        verified in past 12 months"
	mt01s = "Number of mortgage trades"
	mt02s = "Number of open mortgage trades"
	mt03s = "Number of currently satisfactory open
        mortgage trades"
	mt20s = "Months since oldest mortgage trade opened"
	mt21s = "Months since most recent mortgage trade opened"
	lm09s = "Months since most recent mortgage trade
        with a loan modification delinquency"
	mt28s = "Total credit line of open mortgage trades
        verified in past 12 months"
	mt29s = "Number of open mortgage trades with balance
        > $0 verified in past 12 months"
	mt32s = "Maximum balance owed on mortgage trades
        verified in past 12 months"
	mt33s = "Total balance of open mortgage trades
        verified in past 12 months"
	mt34s = "Utilization for open mortgage trades
        verified in past 12 months"
	mt35s = "Average balance of open mortgage trades
        verified in past 12 months"
	mt36s = "Months since most recent mortgage delinquency"
	mt47s = "Number of mortgage trade delinquencies
        (30 or more days past due) in the past 12 months"
	lm06s = "Number of mortgage trades that are 30 or
        more days past due with a loan modification"
	lm07s = "Number of mortgage trades that are 60 or
        more days past due with a loan modification"
	lm08s = "Number of mortgage trades that are 90 or
        more days past due with a loan modification"
	mt57s = "Total past due amount of open mortgage
        trades verified in past 12 months"
	of01s = "Number of credit union trades"
	of03s = "Number of currently satisfactory open credit
        union trades"
	of20s = "Months since oldest credit union trade opened"
	of28s = "Total credit line of open credit union trades
        verified in past 12 months"
	of29s = "Number of open credit union trades with balance
        > $0 verified in past 12 months"
	of33s = "Total balance of open credit union trades verified in past 12 months"
	of36s = "Months since most recent credit union 
        delinquency"
	bc01s = "Number of credit card trades"
	bc02s = "Number of open credit card trades"
	bc03s = "Number of currently satisfactory open credit 
        card trades"
	bc06s = "Number of credit card trades opened in past 6 
        months"
	bc09s = "Number of credit card trades opened in past 24 
        months"
	bkopenv6 = "# of open bankcard trades ver in 6"
	bc12s = "Number of open credit card trades verified in 
        past 12 months"
	bc21s = "Months since most recent credit card trade 
        opened"
	bc29s = "Number of open credit card trades with balance 
        > $0 verified in past 12 months"
	bc30s = "Percentage of open credit card trades > 50% of
         credit line verified in past 12 months"
	bc31s = "Percentage of open credit card trades > 75% of
         credit line verified in past 12 months"
	bc34s = "Utilization for open credit card trades verified
         in past 12 months"
	bc35s = "Average balance of open credit card trades
         verified in past 12 months"
	bc36s = "Months since most recent credit card delinquency"
	pb03s = "Number of currently satisfactory open premium 
        credit card trades"
	pb06s = "Number of premium credit card trades opened in 
        past 6 months"
	pb09s = "Number of premium credit card trades opened in 
        past 24 months"
	pb12s = "Number of open premium credit card trades verified
         in past 12 months"
	pb20s = "Months since oldest premium credit card trade 
        opened"
	pb21s = "Months since most recent premium credit card 
        trade opened"
	pb33s = "Total balance of open premium credit card trades 
        verified in past 12 months"
	pb35s = "Average balance of open premium credit card 
        trades verified in past 12 months"
	rt01s = "Number of retail trades"
	rt03s = "Number of currently satisfactory open retail
         trades"
	rt06s = "Number of retail trades opened in past 6 months"
	rt09s = "Number of retail trades opened in past 24 months"
	rt12s = "Number of open retail trades verified in past 
        12 months"
	rt20s = "Months since oldest retail trade opened"
	rt21s = "Months since most recent retail trade opened"
	rt28s = "Total credit line of open retail trades verified 
        in past 12 months"
	rt29s = "Number of open retail trades with balance > $0
         verified in past 12 months"
	rt33s = "Total balance of open retail trades verified in
         past 12 months"
	rt34s = "Utilization for open retail trades verified in
         past 12 months"
	rt35s = "Average balance of open retail trades verified
         in past 12 months"
	rt36s = "Months since most recent retail delinquency"
	numdept = " # of satisfactory dept store trades"
	g001s = "Number of 30 days past due ratings in past 12
         months"
	g002s = "Number of 60 days past due ratings in past 12 
        months"
	g003s = "Number of 90 or more days past due ratings in
         past 12 months"
	g020s = "Number of trades with maximum delinquency of 
        30 days past due in past 24 months"
	g041s = "Number of trades 30 or more days past due ever"
	g042s = "Number of trades 60 or more days past due ever"
	g043s = "Number of trades 90 or more days past due ever"
	hmop5gth = "# of trades 120+ DPD ever"
	g051s = "Percentage of trades ever delinquent"
	g057s = "Number of trades 30 or more days past due in
         past 3 months"
	g058s = "Number of trades 30 or more days past
        due in past 6 months"
	g059s = "Number of trades 30 or more days past
        due in past 12 months"
	g061s = "Number of trades 30 or more days past
        due in past 24 months"
	g063s = "Number of trades 60 or more days past
        due in past 6 months"
	g064s = "Number of trades 60 or more days past due in
        past 12 months"
	g066s = "Number of trades 60 or more days past due
        in past 24 months"
	g068s = "Number of trades 90 or more days past due
        in past 6 months"
	g069s = "Number of trades 90 or more days past due
        in past 12 months"
	g071s = "Number of trades 90 or more days past due
        in past 24 months"
	g093s = "Number of public records"
	g094s = "Number of public record bankruptcies"
	g095s = "Months since most recent public record"
	numinq = "# of inquiries "
	inqnoau6 = "# of inquiries in last 6 months excl auto inq"
	g102s = "Months since most recent inquiry"
	g103s = "Months since most recent credit inquiry"
	g104s = "Months since most recent collection inquiry"
	g106s = "Months on file"
	s004s = "Average number of months trades have been on file"
	trdopn = "# of open trades "
	re01s = "Number of revolving trades"
	fi02s = "Number of open finance installment trades"
	s043s = "Number of open trades > 50% of credit line 
        verified in past 12 months (excluding installments 
        and mortgages)"
	g093s = "Number of public records"
	s061s = "Months since most recent 60 or more days past due"
	s062s = "Months since most recent 90 or more days past due"
	s063a = "Total public record amount"
	s064a = "Total placement amount of third party collections"
	s208s = "Number of tax liens"
	s114s = "Number of deduped inquiries in past 6 months 
        (excluding auto and mortgage inquiries)"
	CTAM03Score = "TransUnion Account Management Score 3.0"
	CVTG2AScore = "Vantage Score"
	re12s = "Number of open revolving trades verified in 
        past 12 months"
        hmop5gth =	"# of trades 120+ DPD"
        derogpub =	"number of derogatory public records"
        cmop2 =	"# of trades currently 30 DPD"
        cmop3 =	"# of trades currently 60 DPD"
        cmop4 =	"# of trades currently 90 DPD"
        cmop5 =	"# of trades currently 120 DPD" 

    ;


infile "&tt." lrecl=8000 missover;

input
        ZIPCODE 	$	1	-	5
	STATE		$	138	-	139
	PermID		$	140	-	152
	TUEDT_2003	$	153	-	166
	DOB			176	-	183
	at01s			2543	-	2545
	at03s			2549	-	2551
	at06s			2552	-	2554
	at09s			2555	-	2557
	trdver3			1709	-	1710
	trdver6			1711	-	1712
	at12s			2558	-	2560
	trdver24		1715	-	1716
	at20s			2561	-	2563
	at21s			2564	-	2566
	at24s			2567	-	2569
	at25s			2570	-	2572
	at27s			2573	-	2575
	at28a			2576	-	2584
	at29s			2594	-	2596
	at33a			2612	-	2620
	at34a			2630	-	2632
	at35a			2636	-	2644
	at36s			2654	-	2656
	agcolthb		1690	-	1696
	br03s			3074	-	3076
	br20s			3086	-	3088
	br28s			3101	-	3109
	br33s			3128	-	3136
	fr03s			3359	-	3361
	fr33s			3413	-	3421
	fr35s			3425	-	3433
	re03s			4689	-	4691
	revopn6		        1891	-	1892
	re09s			4695	-	4697
	re20s			4701	-	4703
	re28s			4716	-	4724
	re32s			4734	-	4742
	re33s			4743	-	4751
	re34s			4752	-	4754
	re35s			4755	-	4763
	bi01s			2966	-	2968
	bi03s			2972	-	2974
	bi06s			2975	-	2977
	bi09s			2978	-	2980
	bi20s			2984	-	2986
	bi28s			2999	-	3007
	fi01s			3251	-	3253
	fi03s			3257	-	3259
	fi06s			3260	-	3262
	fi09s			3263	-	3265
	in03s			4100	-	4102
	in06s			4103	-	4105
	in09s			4106	-	4108
	fioact3			1860	-	1861
	in12s			4109	-	4111
	in21s			4115	-	4117
	in28s			4127	-	4135
	in33s			4154	-	4162
	in34s			4163	-	4165
	mt01s			4349	-	4351
	mt02s			4352	-	4354
	mt03s			4355	-	4357
	mt20s			4367	-	4369
	mt21s			4370	-	4372
	lm09s			4232	-	4234
	mt28s			4382	-	4390
	mt29s			4391	-	4393
	mt32s			4400	-	4408
	mt33s			4409	-	4417
	mt34s			4418	-	4420
	mt35s			4431	-	4439
	mt36s			4440	-	4442
	mt47s			4443	-	4445
	lm06s			4223	-	4225
	lm07s			4226	-	4228
	lm08s			4229	-	4231
	mt57s			4446	-	4454
	of01s			4479	-	4481
	of03s			4485	-	4487
	of20s			4497	-	4499
	of28s			4512	-	4520
	of29s			4521	-	4523
	of33s			4539	-	4547
	of36s			4560	-	4562
	bc01s			2795	-	2797
	bc02s			2798	-	2800
	bc03s			2801	-	2803
	bc06s			2804	-	2806
	bc09s			2807	-	2809
	bkopenv6		1971	-	1972
	bc12s			2810	-	2812
	bc21s			2816	-	2818
	bc29s			2837	-	2839
	bc30s			2840	-	2842
	bc31s			2843	-	2845
	bc34s			2864	-	2866
	bc35s			2867	-	2875
	bc36s			2876	-	2878
	pb03s			4587	-	4589
	pb06s			4590	-	4592
	pb09s			4593	-	4595
	pb12s			4596	-	4598
	pb20s			4599	-	4601
	pb21s			4602	-	4604
	pb33s			4641	-	4649
	pb35s			4653	-	4661
	rt01s			4836	-	4838
	rt03s			4842	-	4844
	rt06s			4845	-	4847
	rt09s			4848	-	4850
	rt12s			4851	-	4853
	rt20s			4854	-	4856
	rt21s			4857	-	4859
	rt28s			4869	-	4877
	rt29s			4878	-	4880
	rt33s			4896	-	4904
	rt34s			4905	-	4907
	rt35s			4908	-	4916
	rt36s			4917	-	4919
	numdept	  	        1814	-	1815
	g001s			3455	-	3457
	g002s			3464	-	3466
	g003s			3473	-	3475
	g020s			3479	-	3481
	g041s			3482	-	3484
	g042s			3488	-	3490
	g043s			3494	-	3496
	hmop5gth		2088	-	2089
	g051s			3500	-	3502
	g057s			3503	-	3505
	g058s			3506	-	3508
	g059s			3509	-	3511
	g061s			3512	-	3514
	g063s			3515	-	3517
	g064s			3518	-	3520
	g066s			3521	-	3523
	g068s			3524	-	3526
	g069s			3527	-	3529
	g071s			3530	-	3532
	g093s			3533	-	3535
	g094s			3536	-	3538
	g095s			3539	-	3541
	numinq			2236	-	2237
	inqnoau6		2240	-	2241
	g102s			3548	-	3550
	g103s			3551	-	3553
	g104s			3554	-	3556
	g106s			5201	-	5203
	s004s			4947	-	4949
	trdopn			1707	-	1708
	re01s			4683	-	4685
	fi02s			3254	-	3256
	s043s			4950	-	4952
	g093s			3533	-	3535
	s061s			4953	-	4955
	s062s			4956	-	4958
	s063a			5183	-	5191
	s064a			4959	-	4967
	s208s			5192	-	5194
	s114s			4995	-	4997
	CTAM03Score		185	-	187
	CVTG2AScore		188	-	190
	re12s			4698	-	4700
        hmop5gth =              2088	-       2089
        derogpub =              1493	-       1494
        cmop2 =	2054-	2055
        cmop3 =	2058-	2059
        cmop4 =	2062-	2063
        cmop5 = 2066-	2067



; 
                                                                                                                            
proc contents;
proc print data = save.tu&sufx. (obs=300) label;  ** label here ; 
run;

proc print data = save.tu&sufx. (obs=300) ;  ** no label here ; 
run; 


%mend  tu;

%let sufx = 201006; 
%let tt = PRM.EDTOUT.DGMFEDRE.P267665.ACC.txt;

%tu;
run;

%let sufx = 201206; 
%let tt = PRM.EDTOUT.DGMFEDRE.P267666.ACC.txt; 

%tu;
run;

%let sufx = 201406; 
%let tt = PRM.EDTOUT.DGMFEDRE.P267667.ACC.txt; 

%tu;
run;
 

endsas ; 
